home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / prg_basi / n_b-v200.zip / DAS-NBT0.INC < prev    next >
Text File  |  1996-03-11  |  3KB  |  39 lines
  1. '────────────────────────────────────────────────────────────────────────────
  2.  
  3. $LINK "DAS-NBT0.PBL"
  4.  
  5. '────────────────────────────────────────────────────────────────────────────
  6. DECLARE FUNCTION fReadSCREEN$       (BYVAL R?,BYVAL C?,BYVAL Cols%)
  7. DECLARE FUNCTION fSCREEN?           (BYVAL R?,BYVAL C?,BYVAL Which?)
  8. DECLARE      SUB  SetTBorder        (BYVAL Brdr?,SEG BrdrChars$)
  9. DECLARE      SUB  TBoxColor         (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL A?)
  10. DECLARE      SUB  TBoxColor2        (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Fattr?,BYVAL Tattr?)
  11. DECLARE      SUB  TBoxColorB        (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL B?)
  12. DECLARE      SUB  TBoxColorF        (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL F?)
  13. DECLARE      SUB  TBoxCopy          (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Fpage?,BYVAL Tpage?)
  14. DECLARE      SUB  TBoxCopy2         (BYVAL Fpage?,BYVAL Tpage?)
  15. DECLARE      SUB  TBoxDOWN          (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Char?,BYVAL A%)
  16. DECLARE      SUB  TBoxDRAW          (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Brdr%,BYVAL A?)
  17. DECLARE      SUB  TBoxDRAWH         (BYVAL R?,BYVAL C?,BYVAL Cs?,BYVAL Brdr%,BYVAL Connect?)
  18. DECLARE      SUB  TBoxDRAWV         (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Brdr%,BYVAL Connect?)
  19. DECLARE      SUB  TBoxFILL          (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Char?,BYVAL A%)
  20. DECLARE      SUB  TBoxLEFT          (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Char?,BYVAL A%)
  21. DECLARE FUNCTION fTBoxREAD$         (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL A?)
  22. DECLARE      SUB  TBoxRIGHT         (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Char?,BYVAL A%)
  23. DECLARE      SUB  TBoxUP            (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Char?,BYVAL A%)
  24. DECLARE      SUB  TBoxWRITE         (SEG ANY)
  25. DECLARE      SUB  Tprint            (BYVAL R?,BYVAL C?,BYVAL T$,BYVAL Attr?)
  26. DECLARE FUNCTION fTprint??          (BYVAL R?,BYVAL C?,BYVAL T$,BYVAL Attr?)
  27. DECLARE      SUB  TprintLine        (BYVAL R?,BYVAL C?,BYVAL Cs?,SEG ANY,BYVAL MidPos%,BYVAL CR??,BYVAL TabWid?,BYVAL Attr?)
  28. DECLARE FUNCTION fTprintLine%       (BYVAL R?,BYVAL C?,BYVAL Cs?,SEG ANY,BYVAL MidPos%,BYVAL CR??,BYVAL TabWid?,BYVAL Attr?)
  29. DECLARE      SUB  TprintMid         (BYVAL R?,BYVAL C?,SEG ANY,BYVAL S%,BYVAL C%,BYVAL Attr?)
  30. DECLARE      SUB  TprintMid2        (BYVAL R?,BYVAL C?,SEG ANY,BYVAL Fmid%,BYVAL Tmid%,BYVAL Attr?)
  31. DECLARE FUNCTION fTprintMid2??      (BYVAL R?,BYVAL C?,SEG ANY,BYVAL Fmid%,BYVAL Tmid%,BYVAL Attr?)
  32. DECLARE FUNCTION fTprintMid??       (BYVAL R?,BYVAL C?,SEG ANY,BYVAL S%,BYVAL C%,BYVAL Attr?)
  33. DECLARE      SUB  TprintN           (BYVAL R?,BYVAL C?,BYVAL T$,BYVAL Attr?)
  34. DECLARE FUNCTION fTprintN??         (BYVAL R?,BYVAL C?,BYVAL T$,BYVAL Attr?)
  35. DECLARE      SUB  TprintTEXT        (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,SEG ANY,BYVAL MPos%,BYVAL CR??,BYVAL TWid?,BYVAL A?)
  36. DECLARE FUNCTION fTprintTEXT%       (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,SEG ANY,BYVAL MPos%,BYVAL CR??,BYVAL TWid?,BYVAL A?)
  37. DECLARE      SUB  VIDEOsetup        ()
  38. '════════════════════════════════════════════════════════════════════════════
  39.